The input of this document is the output from the cleaned BACI dataset fitted to our purposes. The sub-dataset contemplating all of the imports arising from China, United States and United Kingdom we examine the change over time of trade from China, UK, and US, to the European Member-States yearly.

Importing the relevant libraries and colour palletes

Set directory to meet data set.

Importing data from previous data cleaning part of the project. File “Tariff-line Trade Elasticities.Rmd”

Making sure we are tracking the EU countries

Chinese Imports to the European Union Member-states from 2018 to 2021

Trade_EU_MainPartners_BACI_COVID_CN$k <- as.factor(Trade_EU_MainPartners_BACI_COVID_CN$k)

#Austria
Trade_EU_MainPartners_BACI_COVID_CN_AT_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Austria")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Austria"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_AT_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Austria")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Austria"), sep = " ") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_AT_val + Trade_EU_MainPartners_BACI_COVID_CN_AT_q

#Belgium
Trade_EU_MainPartners_BACI_COVID_CN_BE_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Belgium")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Belgium"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_BE_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Belgium")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Belgium"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_BE_val + Trade_EU_MainPartners_BACI_COVID_CN_BE_q

#Bulgaria
Trade_EU_MainPartners_BACI_COVID_CN_BG_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Bulgaria")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Bulgaria"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_BG_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Bulgaria")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Bulgaria"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_BG_val + Trade_EU_MainPartners_BACI_COVID_CN_BG_q

#Croatia
Trade_EU_MainPartners_BACI_COVID_CN_HR_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Croatia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Croatia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_HR_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Croatia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Croatia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_HR_val + Trade_EU_MainPartners_BACI_COVID_CN_HR_q

#Cyprus
Trade_EU_MainPartners_BACI_COVID_CN_CY_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Cyprus")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Cyprus"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_CY_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Cyprus")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Cyprus"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_CY_val + Trade_EU_MainPartners_BACI_COVID_CN_CY_q

#Czechia
Trade_EU_MainPartners_BACI_COVID_CN_CZ_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Czechia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Czechia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_CZ_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Belgium")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Czechia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_CZ_val + Trade_EU_MainPartners_BACI_COVID_CN_CZ_q

#Denmark
Trade_EU_MainPartners_BACI_COVID_CN_DK_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Denmark")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Denmark"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_DK_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Denmark")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Denmark"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_DK_val + Trade_EU_MainPartners_BACI_COVID_CN_DK_q

#Estonia
Trade_EU_MainPartners_BACI_COVID_CN_EE_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Estonia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Estonia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_EE_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Estonia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Estonia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_EE_val + Trade_EU_MainPartners_BACI_COVID_CN_EE_q

#Finland
Trade_EU_MainPartners_BACI_COVID_CN_FL_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Finland")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Finland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_FL_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Finland")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Finland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_FL_val + Trade_EU_MainPartners_BACI_COVID_CN_FL_q

#France
Trade_EU_MainPartners_BACI_COVID_CN_FR_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("France")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to France"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_FR_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("France")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to France"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_FR_val + Trade_EU_MainPartners_BACI_COVID_CN_FR_q

#Germany
Trade_EU_MainPartners_BACI_COVID_CN_DE_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Germany")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Germany"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_DE_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Germany")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Germany"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_DE_val + Trade_EU_MainPartners_BACI_COVID_CN_DE_q

#Greece
Trade_EU_MainPartners_BACI_COVID_CN_GR_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Greece")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Greece"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_GR_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Greece")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Greece"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_GR_val + Trade_EU_MainPartners_BACI_COVID_CN_GR_q

#Hungary
Trade_EU_MainPartners_BACI_COVID_CN_HU_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Hungary")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Hungary"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_HU_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Hungary")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Hungary"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_HU_val + Trade_EU_MainPartners_BACI_COVID_CN_HU_q

#Ireland
Trade_EU_MainPartners_BACI_COVID_CN_IE_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Ireland")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Ireland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_IE_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Ireland")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Ireland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_IE_val + Trade_EU_MainPartners_BACI_COVID_CN_IE_q

#Italy
Trade_EU_MainPartners_BACI_COVID_CN_IT_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Italy")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Italy"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_IT_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Italy")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Italy"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_IT_val + Trade_EU_MainPartners_BACI_COVID_CN_IT_q

#Latvia
Trade_EU_MainPartners_BACI_COVID_CN_LV_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Latvia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Latvia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_LV_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Latvia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Latvia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_LV_val + Trade_EU_MainPartners_BACI_COVID_CN_LV_q

#Lithuania
Trade_EU_MainPartners_BACI_COVID_CN_LT_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Lithuania")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Lithuania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_LT_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Lithuania")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Lithuania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_LT_val + Trade_EU_MainPartners_BACI_COVID_CN_LT_q

#Luxembourg
Trade_EU_MainPartners_BACI_COVID_CN_LU_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Luxembourg")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Luxembourg"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_LU_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Luxembourg")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Luxembourg"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_LU_val + Trade_EU_MainPartners_BACI_COVID_CN_LU_q

#Malta
Trade_EU_MainPartners_BACI_COVID_CN_MT_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Malta")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Malta"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_MT_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Malta")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Malta"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_MT_val + Trade_EU_MainPartners_BACI_COVID_CN_MT_q

#Netherlands
Trade_EU_MainPartners_BACI_COVID_CN_NE_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Netherlands")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Netherlands"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_NE_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Netherlands")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Netherlands"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_NE_val + Trade_EU_MainPartners_BACI_COVID_CN_NE_q

#Poland
Trade_EU_MainPartners_BACI_COVID_CN_PL_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Poland")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Poland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_PL_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Poland")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Poland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_PL_val + Trade_EU_MainPartners_BACI_COVID_CN_PL_q

#Portugal
Trade_EU_MainPartners_BACI_COVID_CN_PT_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Portugal")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Portugal"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_PT_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Portugal")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Portugal"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_PT_val + Trade_EU_MainPartners_BACI_COVID_CN_PT_q

#Romania
Trade_EU_MainPartners_BACI_COVID_CN_RO_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Romania")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Romania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_RO_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Romania")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Romania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_RO_val + Trade_EU_MainPartners_BACI_COVID_CN_RO_q

#Slovakia
Trade_EU_MainPartners_BACI_COVID_CN_SK_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Slovakia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Slovakia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_SK_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Slovakia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Slovakia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_SK_val + Trade_EU_MainPartners_BACI_COVID_CN_SK_q

#Slovenia
Trade_EU_MainPartners_BACI_COVID_CN_SL_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Slovenia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Slovenia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_SL_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Slovenia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Slovenia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_SL_val + Trade_EU_MainPartners_BACI_COVID_CN_SL_q

#Spain
Trade_EU_MainPartners_BACI_COVID_CN_ES_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Spain")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Spain"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_ES_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Spain")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Spain"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_ES_val + Trade_EU_MainPartners_BACI_COVID_CN_ES_q

#Sweden
Trade_EU_MainPartners_BACI_COVID_CN_SE_val <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Sweden")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from China to Sweden"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_SE_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Sweden")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from China to Sweden"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_CN_SE_val + Trade_EU_MainPartners_BACI_COVID_CN_SE_q

Imports from United States to European Union Member-States from 2018 to 2021

Trade_EU_MainPartners_BACI_COVID_US$k <- as.factor(Trade_EU_MainPartners_BACI_COVID_US$k)

#Austria
Trade_EU_MainPartners_BACI_COVID_US_AT_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Austria")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Austria"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_AT_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Austria")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Austria"), sep = " ") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_AT_val + Trade_EU_MainPartners_BACI_COVID_US_AT_q

#Belgium
Trade_EU_MainPartners_BACI_COVID_US_BE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Belgium")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Belgium"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_BE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Belgium")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Belgium"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_BE_val + Trade_EU_MainPartners_BACI_COVID_US_BE_q

#Bulgaria
Trade_EU_MainPartners_BACI_COVID_US_BG_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Bulgaria")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Bulgaria"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_BG_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Bulgaria")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Bulgaria"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_BG_val + Trade_EU_MainPartners_BACI_COVID_US_BG_q

#Croatia
Trade_EU_MainPartners_BACI_COVID_US_HR_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Croatia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Croatia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_HR_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Croatia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Croatia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_HR_val + Trade_EU_MainPartners_BACI_COVID_US_HR_q

#Cyprus
Trade_EU_MainPartners_BACI_COVID_US_CY_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Cyprus")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Cyprus"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_CY_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Cyprus")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Cyprus"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_CY_val + Trade_EU_MainPartners_BACI_COVID_US_CY_q

#Czechia
Trade_EU_MainPartners_BACI_COVID_US_CZ_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Czechia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Czechia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_CZ_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Belgium")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Czechia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_CZ_val + Trade_EU_MainPartners_BACI_COVID_US_CZ_q

#Denmark
Trade_EU_MainPartners_BACI_COVID_US_DK_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Denmark")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Denmark"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_DK_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Denmark")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Denmark"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_DK_val + Trade_EU_MainPartners_BACI_COVID_US_DK_q

#Estonia
Trade_EU_MainPartners_BACI_COVID_US_EE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Estonia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Estonia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_EE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Estonia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Estonia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_EE_val + Trade_EU_MainPartners_BACI_COVID_US_EE_q

#Finland
Trade_EU_MainPartners_BACI_COVID_US_FL_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Finland")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Finland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_FL_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Finland")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Finland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_FL_val + Trade_EU_MainPartners_BACI_COVID_US_FL_q

#France
Trade_EU_MainPartners_BACI_COVID_US_FR_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("France")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to France"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_FR_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("France")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to France"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_FR_val + Trade_EU_MainPartners_BACI_COVID_US_FR_q

#Germany
Trade_EU_MainPartners_BACI_COVID_US_DE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Germany")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Germany"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_DE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Germany")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Germany"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_DE_val + Trade_EU_MainPartners_BACI_COVID_US_DE_q

#Greece
Trade_EU_MainPartners_BACI_COVID_US_GR_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Greece")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Greece"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_GR_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Greece")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Greece"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_GR_val + Trade_EU_MainPartners_BACI_COVID_US_GR_q

#Hungary
Trade_EU_MainPartners_BACI_COVID_US_HU_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Hungary")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Hungary"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_HU_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Hungary")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Hungary"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_HU_val + Trade_EU_MainPartners_BACI_COVID_US_HU_q

#Ireland
Trade_EU_MainPartners_BACI_COVID_US_IE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Ireland")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Ireland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_IE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Ireland")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Ireland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_IE_val + Trade_EU_MainPartners_BACI_COVID_US_IE_q

#Italy
Trade_EU_MainPartners_BACI_COVID_US_IT_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Italy")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Italy"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_IT_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Italy")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Italy"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_IT_val + Trade_EU_MainPartners_BACI_COVID_US_IT_q

#Latvia
Trade_EU_MainPartners_BACI_COVID_US_LV_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Latvia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Latvia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LV_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Latvia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Latvia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LV_val + Trade_EU_MainPartners_BACI_COVID_US_LV_q

#Lithuania
Trade_EU_MainPartners_BACI_COVID_US_LT_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Lithuania")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Lithuania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LT_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Lithuania")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Lithuania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LT_val + Trade_EU_MainPartners_BACI_COVID_US_LT_q

#Luxembourg
Trade_EU_MainPartners_BACI_COVID_US_LU_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Luxembourg")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Luxembourg"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LU_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Luxembourg")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Luxembourg"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LU_val + Trade_EU_MainPartners_BACI_COVID_US_LU_q

#Malta
Trade_EU_MainPartners_BACI_COVID_US_MT_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Malta")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Malta"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_MT_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Malta")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Malta"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_MT_val + Trade_EU_MainPartners_BACI_COVID_US_MT_q

#Netherlands
Trade_EU_MainPartners_BACI_COVID_US_NE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Netherlands")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Netherlands"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_NE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Netherlands")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Netherlands"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_NE_val + Trade_EU_MainPartners_BACI_COVID_US_NE_q

#Poland
Trade_EU_MainPartners_BACI_COVID_US_PL_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Poland")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Poland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_PL_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Poland")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Poland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_PL_val + Trade_EU_MainPartners_BACI_COVID_US_PL_q

#Portugal
Trade_EU_MainPartners_BACI_COVID_US_PT_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Portugal")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Portugal"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_PT_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Portugal")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Portugal"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_PT_val + Trade_EU_MainPartners_BACI_COVID_US_PT_q

#Romania
Trade_EU_MainPartners_BACI_COVID_US_RO_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Romania")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Romania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_RO_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Romania")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Romania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_RO_val + Trade_EU_MainPartners_BACI_COVID_US_RO_q

#Slovakia
Trade_EU_MainPartners_BACI_COVID_US_SK_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Slovakia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Slovakia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SK_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Slovakia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Slovakia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SK_val + Trade_EU_MainPartners_BACI_COVID_US_SK_q

#Slovenia
Trade_EU_MainPartners_BACI_COVID_US_SL_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Slovenia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Slovenia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SL_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Slovenia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Slovenia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SL_val + Trade_EU_MainPartners_BACI_COVID_US_SL_q

#Spain
Trade_EU_MainPartners_BACI_COVID_US_ES_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Spain")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Spain"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_ES_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Spain")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Spain"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_ES_val + Trade_EU_MainPartners_BACI_COVID_US_ES_q

#Sweden
Trade_EU_MainPartners_BACI_COVID_US_SE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Sweden")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Sweden"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Sweden")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Sweden"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SE_val + Trade_EU_MainPartners_BACI_COVID_US_SE_q

Imports from United Kingdom to European Union Member-States from 2018 to 2021

Trade_EU_MainPartners_BACI_COVID_UK$k <- as.factor(Trade_EU_MainPartners_BACI_COVID_UK$k)


#Austria
Trade_EU_MainPartners_BACI_COVID_UK_AT_val <- Trade_EU_MainPartners_BACI_COVID_UK %>% filter(j %in% get_country_or_code("Austria")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from UK to Austria"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_UK_AT_q <- Trade_EU_MainPartners_BACI_COVID_UK %>% filter(j %in% get_country_or_code("Austria")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from UK to Austria"), sep = " ") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_UK_AT_val + Trade_EU_MainPartners_BACI_COVID_UK_AT_q

#Belgium
Trade_EU_MainPartners_BACI_COVID_UK_BE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Belgium")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from UK to Belgium"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_UK_BE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Belgium")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from UK to Belgium"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_UK_BE_val + Trade_EU_MainPartners_BACI_COVID_UK_BE_q

#Bulgaria
Trade_EU_MainPartners_BACI_COVID_US_BG_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Bulgaria")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Bulgaria"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_BG_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Bulgaria")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Bulgaria"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_BG_val + Trade_EU_MainPartners_BACI_COVID_US_BG_q

#Croatia
Trade_EU_MainPartners_BACI_COVID_US_HR_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Croatia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Croatia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_HR_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Croatia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Croatia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_HR_val + Trade_EU_MainPartners_BACI_COVID_US_HR_q

#Cyprus
Trade_EU_MainPartners_BACI_COVID_US_CY_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Cyprus")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Cyprus"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_CY_q <- Trade_EU_MainPartners_BACI_COVID_CN %>% filter(j %in% get_country_or_code("Cyprus")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Cyprus"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_CY_val + Trade_EU_MainPartners_BACI_COVID_US_CY_q

#Czechia
Trade_EU_MainPartners_BACI_COVID_US_CZ_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Czechia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Czechia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_CZ_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Belgium")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Czechia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_CZ_val + Trade_EU_MainPartners_BACI_COVID_US_CZ_q

#Denmark
Trade_EU_MainPartners_BACI_COVID_US_DK_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Denmark")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Denmark"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_DK_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Denmark")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Denmark"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_DK_val + Trade_EU_MainPartners_BACI_COVID_US_DK_q

#Estonia
Trade_EU_MainPartners_BACI_COVID_US_EE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Estonia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Estonia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_EE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Estonia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Estonia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_EE_val + Trade_EU_MainPartners_BACI_COVID_US_EE_q

#Finland
Trade_EU_MainPartners_BACI_COVID_US_FL_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Finland")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Finland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_FL_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Finland")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Finland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_FL_val + Trade_EU_MainPartners_BACI_COVID_US_FL_q

#France
Trade_EU_MainPartners_BACI_COVID_US_FR_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("France")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to France"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_FR_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("France")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to France"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_FR_val + Trade_EU_MainPartners_BACI_COVID_US_FR_q

#Germany
Trade_EU_MainPartners_BACI_COVID_US_DE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Germany")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Germany"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_DE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Germany")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Germany"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_DE_val + Trade_EU_MainPartners_BACI_COVID_US_DE_q

#Greece
Trade_EU_MainPartners_BACI_COVID_US_GR_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Greece")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Greece"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_GR_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Greece")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Greece"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_GR_val + Trade_EU_MainPartners_BACI_COVID_US_GR_q

#Hungary
Trade_EU_MainPartners_BACI_COVID_US_HU_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Hungary")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Hungary"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_HU_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Hungary")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Hungary"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_HU_val + Trade_EU_MainPartners_BACI_COVID_US_HU_q

#Ireland
Trade_EU_MainPartners_BACI_COVID_US_IE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Ireland")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Ireland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_IE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Ireland")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Ireland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_IE_val + Trade_EU_MainPartners_BACI_COVID_US_IE_q

#Italy
Trade_EU_MainPartners_BACI_COVID_US_IT_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Italy")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Italy"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_IT_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Italy")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Italy"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_IT_val + Trade_EU_MainPartners_BACI_COVID_US_IT_q

#Latvia
Trade_EU_MainPartners_BACI_COVID_US_LV_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Latvia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Latvia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LV_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Latvia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Latvia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LV_val + Trade_EU_MainPartners_BACI_COVID_US_LV_q

#Lithuania
Trade_EU_MainPartners_BACI_COVID_US_LT_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Lithuania")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Lithuania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LT_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Lithuania")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Lithuania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LT_val + Trade_EU_MainPartners_BACI_COVID_US_LT_q

#Luxembourg
Trade_EU_MainPartners_BACI_COVID_US_LU_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Luxembourg")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Luxembourg"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LU_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Luxembourg")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Luxembourg"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_LU_val + Trade_EU_MainPartners_BACI_COVID_US_LU_q

#Malta
Trade_EU_MainPartners_BACI_COVID_US_MT_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Malta")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Malta"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_MT_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Malta")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Malta"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_MT_val + Trade_EU_MainPartners_BACI_COVID_US_MT_q

#Netherlands
Trade_EU_MainPartners_BACI_COVID_US_NE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Netherlands")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Netherlands"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_NE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Netherlands")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Netherlands"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_NE_val + Trade_EU_MainPartners_BACI_COVID_US_NE_q

#Poland
Trade_EU_MainPartners_BACI_COVID_US_PL_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Poland")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Poland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_PL_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Poland")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Poland"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_PL_val + Trade_EU_MainPartners_BACI_COVID_US_PL_q

#Portugal
Trade_EU_MainPartners_BACI_COVID_US_PT_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Portugal")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Portugal"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_PT_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Portugal")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Portugal"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_PT_val + Trade_EU_MainPartners_BACI_COVID_US_PT_q

#Romania
Trade_EU_MainPartners_BACI_COVID_US_RO_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Romania")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Romania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_RO_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Romania")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Romania"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_RO_val + Trade_EU_MainPartners_BACI_COVID_US_RO_q

#Slovakia
Trade_EU_MainPartners_BACI_COVID_US_SK_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Slovakia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Slovakia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SK_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Slovakia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Slovakia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SK_val + Trade_EU_MainPartners_BACI_COVID_US_SK_q

#Slovenia
Trade_EU_MainPartners_BACI_COVID_US_SL_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Slovenia")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Slovenia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SL_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Slovenia")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Slovenia"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SL_val + Trade_EU_MainPartners_BACI_COVID_US_SL_q

#Spain
Trade_EU_MainPartners_BACI_COVID_US_ES_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Spain")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Spain"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_ES_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Spain")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Spain"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_ES_val + Trade_EU_MainPartners_BACI_COVID_US_ES_q

#Sweden
Trade_EU_MainPartners_BACI_COVID_US_SE_val <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Sweden")) %>% ggplot() + geom_line(aes(x = t, y = v, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Value(€) of COVID-19 relevant products from US to Sweden"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SE_q <- Trade_EU_MainPartners_BACI_COVID_US %>% filter(j %in% get_country_or_code("Sweden")) %>% ggplot() + geom_line(aes(x = t, y = q, group = k, color = k), linewidth = 1.1) + labs(title = paste("Imports Quantity (100Kg) of COVID-19 relevant products from US to Sweden"), sep = " ") + guides(color = "none") + theme_bw() + scale_color_brewer(palette = "Set3")

Trade_EU_MainPartners_BACI_COVID_US_SE_val + Trade_EU_MainPartners_BACI_COVID_US_SE_q